home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / cstshared.cst / 00013_keyCheck2.ls < prev    next >
Encoding:
Text File  |  2005-07-28  |  2.7 KB  |  125 lines
  1. on keycheck2_OLD
  2.   
  3.   -- ADJUSTED FOR GCHELP!!!!!!!
  4.   
  5.   if the commandDown and the key = "q" OR the keyCode = 53 then
  6.     openQuitBoxFromIE
  7.   end if
  8.   
  9.   -->> DOWN ARROW KEY
  10.   if the keyCOde = 125 then
  11.     
  12.     put the timer into vStartTime
  13.     
  14.     put the soundlevel into vLevel
  15.     
  16.     if vLevel > 0 then
  17.       set vLevel = vLevel - 1
  18.       updateStage
  19.     end if
  20.     
  21.     set the soundlevel = vLevel
  22.     
  23.     puppetSound "volume beep"
  24.     updateStage
  25.     
  26.   end if
  27.   
  28.   -->> UP ARROW KEY
  29.   if the keyCOde = 126 then
  30.     
  31.     put the timer into vStartTime
  32.     
  33.     put the soundlevel into vLevel
  34.     if vLevel < 7 then
  35.       set vLevel = vLevel + 1
  36.       updateStage
  37.     end if
  38.     
  39.     set the soundlevel = vLevel
  40.     
  41.     puppetSound "volume beep"
  42.     updateStage
  43.     
  44.   end if
  45.   
  46.   -- CATCH TUTORIAL (SO KEY COMANDS BELOW WON'T APPEAR)
  47.   global TutorialMovie
  48.   if TutorialMovie = 1 then
  49.     exit
  50.   end if
  51.   
  52.   global gBrowserMoviePath
  53.   
  54.   if the keyCode = 114 or (the commandDown and the keyCode = 44) or (the commandDown and the key = "h") then
  55.     global helpBox
  56.     if objectP(helpBox) then
  57.       closeHelpBox
  58.     else
  59.       showHelpBox
  60.     end if
  61.   end if
  62.   
  63.   global hideDesk, gPrint
  64.   if the commandDown and the key = "o" then
  65.     TELL THE STAGE TO openControllerWindow
  66.   end if
  67.   
  68.   if the commandDown and the key = "m" then
  69.     global gAllMute, gSavedSoundLevel
  70.     
  71.     if gAllMute = 0 then
  72.       put the soundlevel into gSavedSoundLevel
  73.       set the soundlevel = 0
  74.       set gAllMute = 1
  75.     else
  76.       set the soundlevel = gSavedSoundLevel
  77.       set gAllMute = 0
  78.     end if
  79.   end if
  80.   
  81.   if (the keyCode = 113 and the machineType <> 256) or (the commandDown and the key = ENTER and the machineType <> 256) then
  82.     
  83.     tell the stage
  84.       
  85.       ----- TAKEN OUT BECAUSE OF OSX ERROR -----
  86.       --      if objectP(finderSwitch) then
  87.       --        finderSwitch(mDispose)
  88.       --      end if
  89.       --      
  90.       --      openXlib (the pathName & "FinderSwitcher XObj")
  91.       --      
  92.       --      put FinderSwitcher(mNew) into finderSwitch
  93.       --      if objectP(finderSwitch) then finderSwitch(mSwitchToFinder)
  94.       
  95.     end tell
  96.     
  97.   end if
  98.   
  99.   if the commandDown and the key = "n" then
  100.     global gMute,gFade, gAllMute
  101.     if (gMute = 1) then
  102.       if gFade <> 1 and gAllMute <> 1 then
  103.         set the volume of sound (2) to 255
  104.       end if
  105.       
  106.       set gMute = 0
  107.     else
  108.       if gMute = 0 then
  109.         set the volume of sound (2) to 0
  110.         
  111.         set gMute = 1
  112.       end if
  113.     end if
  114.     updateStage
  115.   end if
  116.   
  117.   if the commandDown and the key = "w" then
  118.     global gControllerWindow
  119.     if objectP(gControllerWindow) then
  120.       TELL THE STAGE TO forget gControllerWindow
  121.     end if
  122.   end if
  123.   
  124. end if
  125.